



	******************************************************************
	**
	**
	**		NAME:	ELITE PERSISTENCE IN THE ERA OF EXPANDING OVERSEAS TRADE
	**
	**		MAKES:  Figures in Appendix D		       
	**		
	**
	******************************************************************
	
	
	
	
	

			

		
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	


*-------------------------------------------------------------------------------
* globals for directories
*-------------------------------------------------------------------------------
	

	
* input
*------

global input = ""



	
* output
*-------

global output = ""	
		
	
	
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	


*-------------------------------------------------------------------------------
* preliminaries
*-------------------------------------------------------------------------------


* preliminaries
*--------------

clear
set more off




* use data
*---------

cd ${input}
use   analysis_vars_parl.dta, clear





			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	


*-------------------------------------------------------------------------------
* assert
*-------------------------------------------------------------------------------


* assert
*-------

assert 	parl_year >= 1536 & parl_year <= 1760


duplicates tag parl_group, gen(tt)
assert tt == 0 if parl_group != .
drop tt










			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	


*-------------------------------------------------------------------------------
* globals
*-------------------------------------------------------------------------------


* globals
*--------

global yr1 		= "parl_year > 1553 & parl_year < 1639"
global yr2 		= "parl_year >= 1660 & parl_year <= 1756"

global yr3 		= "parl_year >= 1639 & parl_year <= 1649"
global yr4 		= "parl_year >= 1628 & parl_year <= 1660"

global yr5 		= "parl_year < 1639 & parl_year >= 1583"
global yr6 		= "parl_year > 1550 & parl_year <= 1750"

global yr7 		= "parl_year > 1553 & parl_year <= 1640"


global xline1	= "xline(1660, lcolor(gs12))"
global xline2	= "xline(1688, lcolor(gs12))"
global xline3	= "xline(1640, lcolor(gs12))"
global xline4	= "xline(1562, lcolor(gs12))"


	
	


			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	


*-------------------------------------------------------------------------------
* plot:  trend in investment (stock ownership)
*-------------------------------------------------------------------------------
	
	
	
	

* hi lo
*------

capture drop hi lo
gen hi = 0.2
gen lo = 0
sort parl_group



* this plot
*----------

global outcome1 = "co_comb_any_for_pperc"
global label1 = "Percentage MPs overseas joint stock owners (Rabb)"

global outcome2 = "pass_anytrade_i_orig_pperc"
global label2 = "Percentage MPs indirect members of overseas trade (HPP)"

global scale = "0(.05).2"





* plot
*-----

# delimit ;

twoway 
	
	
		// shaded area
	(rarea hi lo parl_year	
		if   ${yr3} 
		,  color(gs12) )
		
		

	(lpoly ${outcome1} parl_year
		if   ${yr1}		
		,  bwidth(7) lcolor(gs1)  lwidth(medthick) lpattern(line)  ${xline2} ${xline4} )
	//(lpoly ${outcome1} parl_year
		//if   ${yr2}		
		//,  bwidth(7) lcolor(gs1)  lwidth(medthick) lpattern(line)  )
		
	(lpoly ${outcome2} parl_year
		if   ${yr1}		
		,  bwidth(7) lcolor(gs5)  lwidth(medthick) lpattern(shortdash)  ${xline2} ${xline4} )
	(lpoly ${outcome2} parl_year
		if   ${yr2}		
		,  bwidth(7) lcolor(gs5)  lwidth(medthick) lpattern(shortdash)  )
		
		
	(scatter ${outcome1} parl_year
		if    ${yr1}		
		,  mcolor(gs1) msize(medlarge) msymbol(circle))
	//(scatter ${outcome1} parl_year
		//if    ${yr2}			
		//,  mcolor(gs1) msize(medlarge) msymbol(circle))		
		
	(scatter ${outcome2} parl_year
		if    ${yr1}		
		,  mcolor(gs5) msize(medlarge) msymbol(circle_hollow))
	(scatter ${outcome2} parl_year
		if    ${yr2}			
		,  mcolor(gs5) msize(medlarge) msymbol(circle_hollow))		
		
		,
		yscale(noline)
		xscale(noline)
		
		text(.295 1688.5 	"Glorious Revolution", size(medsmall) place(e))
		text(.295 1650 		"English Civil War", size(medsmall) place(e) )
		text(.295 1562 		"First British Slave Ship Sails", size(medsmall) place(e) )
		
		xsize(8.5)
		ysize(3)

		title("", color(black) size(medsmall) pos(11) ) 
		xlab( , 
			labsize(medsmall) ) 
		ylab( ${scale}, 
			angle(hori) labsize(medsmall) nogrid  )
		xtitle("Year" , 
			color(black) size(large) )
		ytitle("Share of MPs", 
			color(black) size(large)  )
		graphregion( fcolor(white) lcolor(white) ) 
		plotregion( fcolor(white) lstyle(none) lcolor(white) ilstyle(none)) 
		legend(order(
				2 "${label1}"
				3 "${label2}"
				)
			cols(1)
			pos(6)
			
			region( color(none) )
			size(large)
			)
		
		;

# delimit cr


	* export graph
	*-------------

		
	cd "${output}"
	graph export "Trend_JointStock.pdf", replace
	
	

			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**


*-------------------------------------------------------------------------------
* PLOT:  trend in total commercial (FIGURE D2 (a))
*-------------------------------------------------------------------------------


* hi lo
*------

capture drop hi lo
gen hi = 20
gen lo = 0
sort parl_group



* this plot
*----------

global outcome1 	= "int_commtot_1_pperc"
global outcome2 	= "pass_anytrade_i_orig_pperc"
global label = "all constituencies"
global scale = "0(5)20"

gen ${outcome1}p = ${outcome1} * 100
gen ${outcome2}p = ${outcome1} * 100

* plot
*-----

# delimit ;

twoway 
	
	
		// shaded area
	(rarea hi lo parl_year	
		if   ${yr3} 
		,  color(gs12) )
		
		

	(lpoly ${outcome1}p parl_year
		if   ${yr1}		
		,  bwidth(7) lcolor(gs1)  lwidth(medthick) lpattern(line)  ${xline2} ${xline4} )
	(lpoly ${outcome1}p parl_year
		if   ${yr2}		
		,  bwidth(7) lcolor(gs1)  lwidth(medthick) lpattern(line)  )
		
	(lpoly ${outcome2}p parl_year
		if   ${yr1}		
		,  bwidth(7) lcolor(gs5)  lwidth(medthick) lpattern(shortdash)  ${xline2} ${xline4} )
	(lpoly ${outcome2}p parl_year
		if   ${yr2}		
		,  bwidth(7) lcolor(gs5)  lwidth(medthick) lpattern(shortdash)  )
		
		
	(scatter ${outcome1}p parl_year
		if    ${yr1}		
		,  mcolor(gs1) msize(medlarge) msymbol(circle))
	(scatter ${outcome1}p parl_year
		if    ${yr2}			
		,  mcolor(gs1) msize(medlarge) msymbol(circle))		
		
	(scatter ${outcome2}p parl_year
		if    ${yr1}		
		,  mcolor(gs5) msize(medlarge) msymbol(circle_hollow))
	(scatter ${outcome2}p parl_year
		if    ${yr2}			
		,  mcolor(gs5) msize(medlarge) msymbol(circle_hollow))		
		
		,
		yscale(noline)
		xscale(noline)
		

		
		xsize(8.5)
		ysize(3)

		title("", color(black) size(medsmall) pos(11) ) 
		xlab(  1550(25)1750, 
			labsize(medsmall) nogrid ) 
		ylab( ${scale}, 
			angle(hori) labsize(medsmall) nogrid  )
		xtitle("Year" , 
			color(black) size(large) )
		ytitle("Percentage of MPs", 
			color(black) size(large)  )
		graphregion( fcolor(white) lcolor(white) ) 
		plotregion( fcolor(white) lstyle(none) lcolor(white) ilstyle(none)) 
		legend(order(
				2 "% MPs Occupied in Commerce"
				4 "% MPs Invested in Overseas Atlantic Trade"
				)
			cols(1)
			pos(6)
			
			region( color(none) )
			size(large)
			)
		
		;

# delimit cr


	* export graph
	*-------------

	cd "${output}"
	graph export "trend_commercial_hpponly.pdf", replace
	
	

			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**


*-------------------------------------------------------------------------------
* PLOT:  eastern merchants hpp only (FIGURE D2 (b))
*-------------------------------------------------------------------------------



* hi lo
*------

capture drop hi 
capture drop lo
gen hi = 20
gen lo = 0
sort parl_group



* this plot
*----------


global outcome1 = "int_intl_east_pperc"
global outcome2 = "pass_asia_i_orig_pperc"
global label2 = "% MPs Occupied in Overseas Atlantic Trade to Asia"

  
global scale = "0(5)20"

gen ${outcome1}p = ${outcome1} * 100
gen ${outcome2}p = ${outcome2} * 100


  

* plot
*-----

# delimit ;

twoway 
	
	
		// shaded area
	(rarea lo hi parl_year	
		if   parl_year >= 1639 & parl_year <= 1649 
		,  color(gs12) )
		
		

		
	(lpoly ${outcome1}p parl_year
		if   ${yr1}		
		,  bwidth(8) lcolor(gs1)  lwidth(medthick) lpattern(line) ${xline2} ${xline4} )
	(lpoly ${outcome1}p parl_year
		if   ${yr2}		
		,  bwidth(8) lcolor(gs1)  lwidth(medthick) lpattern(line)  )	
		
	(lpoly ${outcome2}p parl_year
		if   ${yr1}		
		,  bwidth(8) lcolor(gs5)  lwidth(medthick) lpattern(shortdash) ${xline2} ${xline4} )
	(lpoly ${outcome2}p parl_year
		if   ${yr2}		
		,  bwidth(8) lcolor(gs5)  lwidth(medthick) lpattern(shortdash)  )	
		


	(scatter ${outcome1}p parl_year
		if    ${yr1}		
		,  mcolor(gs1) msize(medlarge) msymbol(circle))
	(scatter ${outcome1}p parl_year
		if    ${yr2}			
		,  mcolor(gs1) msize(medlarge) msymbol(circle))		
	

	(scatter ${outcome2}p parl_year
		if    ${yr1}		
		,  mcolor(gs5) msize(medlarge) msymbol(circle_hollow))
	(scatter ${outcome2}p parl_year
		if    ${yr2}			
		,  mcolor(gs5) msize(medlarge) msymbol(circle_hollow))	
		
		
		,
		yscale(noline)
		xscale(noline)
		
		//text(.195 1688.5 	"Glorious Revolution", size(medsmall) place(e))
		//text(.195 1650 		"English Civil War", size(medsmall) place(e) )
		//text(.195 1562 		"First British Slave Ship Sails", size(medsmall) place(e) )
		
		xsize(8.5)
		ysize(3)

		title("", color(black) size(medsmall) pos(11) ) 
		xlab(  1550(25)1750, 
			labsize(medsmall) nogrid) 
		ylab( ${scale}, 
			angle(hori) labsize(medsmall) nogrid  )
		xtitle("Year" , 
			color(black) size(large) )
		ytitle("Percentage of MPs", 
			color(black) size(large)  )
		graphregion( fcolor(white) lcolor(white) ) 
		plotregion( fcolor(white) lstyle(none) lcolor(white) ilstyle(none)) 
		legend(order(				
				2 	"${label2}"
				4   "% MPs Invested in Overseas Atlantic Trade to Asia"
				)
			cols(1)
			pos(6)
			
			region( color(none) )
			size(large)
			)
		
		;

# delimit cr


	* export graph
	*-------------

	cd "${output}"
	graph export "trend_commercial_east_hpponly.pdf", replace
	
	
	
		
	
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**


*-------------------------------------------------------------------------------
* PLOT:  new world HPP data only (FIGURE D2 (c))
*-------------------------------------------------------------------------------



* hi lo
*------

capture drop hi 
capture drop lo
gen hi = 20
gen lo = 0
sort parl_group



* this plot
*----------

global outcome1 = "int_intl_newworld_pperc"
global outcome2 = "pass_newworld_i_orig_pperc"
global label3 = "% MPs Occupied in Overseas Atlantic Trade to the Americas"
  
global scale = "0(5)20"

gen ${outcome1}p = ${outcome1} * 100
gen ${outcome2}p = ${outcome2} * 100
  

* plot
*-----

# delimit ;

twoway 
	
	
		// shaded area
	(rarea lo hi parl_year	
		if   parl_year >= 1639 & parl_year <= 1649 
		,  color(gs12) )
		
			
		
	(lpoly ${outcome1}p parl_year
		if   ${yr1}		
		,  bwidth(8) lcolor(gs1)  lwidth(medthick) lpattern(line) ${xline2} ${xline4} )
	(lpoly ${outcome1}p parl_year
		if   ${yr2}		
		,  bwidth(8) lcolor(gs1)  lwidth(medthick) lpattern(line)  )	
			
	(lpoly ${outcome2}p parl_year
		if   ${yr1}		
		,  bwidth(8) lcolor(gs5)  lwidth(medthick) lpattern(shortdash) ${xline2} ${xline4} )
	(lpoly ${outcome2}p parl_year
		if   ${yr2}		
		,  bwidth(8) lcolor(gs5)  lwidth(medthick) lpattern(shortdash)  )
		
		
		
	(scatter ${outcome1}p parl_year
		if    ${yr1}		
		,  mcolor(gs1) msize(medlarge) msymbol(circle))
	(scatter ${outcome1}p parl_year
		if    ${yr2}			
		,  mcolor(gs1) msize(medlarge) msymbol(circle))	
		
		
	(scatter ${outcome2}p parl_year
		if    ${yr1}		
		,  mcolor(gs5) msize(medlarge) msymbol(circle_hollow))
	(scatter ${outcome2}p parl_year
		if    ${yr2}			
		,  mcolor(gs5) msize(medlarge) msymbol(circle_hollow))		
		
		,
		yscale(noline)
		xscale(noline)
		

		
		xsize(8.5)
		ysize(3)

		title("", color(black) size(medsmall) pos(11) ) 
		xlab(  1550(25)1750 , 
			labsize(medsmall) nogrid) 
		ylab( ${scale}, 
			angle(hori) labsize(medsmall) nogrid  )
		xtitle("Year" , 
			color(black) size(large) )
		ytitle("Percentage  of MPs", 
			color(black) size(large)  )
		graphregion( fcolor(white) lcolor(white) ) 
		plotregion( fcolor(white) lstyle(none) lcolor(white) ilstyle(none)) 
		legend(order(				
				2 	"${label3}"
				4 	"% MPs Invested in Overseas Atlantic Trade to the Americas"

				)
			cols(1)
			pos(6)
			
			region( color(none) )
			size(large)
			)
		
		;

# delimit cr


	* export graph
	*-------------

	cd "${output}"
	graph export "trend_commercial_newworld_hpponly.pdf", replace
	

	

	
	
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	

						** end of do file ** 	
